Showing 188 of 188 total issues
Use tuple-section Open
Open
newNames = map (\number -> (fstName, sndName, number)) ([0..] :: [Int])
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
\ number -> (fstName, sndName, number)
Perhaps
(fstName, sndName,)
Applying this change:
- may require
{-# LANGUAGE TupleSections #-}
adding to the top of the file
Use list comprehension Open
Open
attrInfo = if info == "" then [] else [sattr "info" ("NAC:"++info)]
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
if info == "" then [] else [sattr "info" ("NAC:" ++ info)]
Perhaps
[sattr "info" ("NAC:" ++ info) | not (info == "")]
Use void Open
Open
mapMCollectErrors_ fn xs = mapMCollectErrors fn xs >> return ()
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
mapMCollectErrors fn xs >> return ()
Perhaps
void (mapMCollectErrors fn xs)
Use tuple-section Open
Open
(\name -> (id,name))
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
\ name -> (id, name)
Perhaps
(id,)
Applying this change:
- may require
{-# LANGUAGE TupleSections #-}
adding to the top of the file
Use infix Open
Open
(ruleTyping,typeNo) = partition (\((_,_,label),_) -> isPrefixOf "type:" label) removedIgnoredLabels
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
isPrefixOf "type:" label
Perhaps
"type:" `isPrefixOf` label
Use $> Open
Open
(reserved "A" *> pure A) <|> (reserved "E" *> pure E) <?> "temporal quantifier"
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
reserved "A" *> pure A
Perhaps
reserved "A" Data.Functor.$> A
Use $> Open
Open
<|> (reserved "AF" *> pure (A . F))
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
reserved "AF" *> pure (A . F)
Perhaps
reserved "AF" Data.Functor.$> (A . F)
Use tuple-section Open
Open
expandeProductions (a,b) = map (\x -> (a,x)) (expandNACs b)
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
\ x -> (a, x)
Perhaps
(a,)
Applying this change:
- may require
{-# LANGUAGE TupleSections #-}
adding to the top of the file
Redundant bracket Open
Open
(nonPreservNodes,edgs) = partition (\((_,_,label),_) -> (label `elem` specialLabels)) typeNo
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
\ ((_, _, label), _) -> (label `elem` specialLabels)
Perhaps
\ ((_, _, label), _) -> label `elem` specialLabels
TODO found Open
Open
-- TODO: implement missing methods of Config for RuleMorphism
- Create a ticketCreate a ticket
- Exclude checks
TODO found Open
Open
-- TODO: this function should not be here in this module
- Create a ticketCreate a ticket
- Exclude checks
TODO found Open
Open
-- TODO: replace explicit test cases with pseudo-random generation
- Create a ticketCreate a ticket
- Exclude checks
TODO found Open
Open
-- TODO: document why minimal safety NACs exist
- Create a ticketCreate a ticket
- Exclude checks
TODO found Open
Open
-- TODO: replace explicit test cases with pseudo-random generation
- Create a ticketCreate a ticket
- Exclude checks
FIXME found Open
Open
-- FIXME: rethink this function and the best module to place it
- Create a ticketCreate a ticket
- Exclude checks
TODO found Open
Open
-- TODO: this function should not be here in this module
- Create a ticketCreate a ticket
- Exclude checks