HLint suggestions

Author: RileyEv

benchmarks/RawTasks/Main.hs

@@ -210,14 +210,13 @@ aggSongs (HCons day1 (HCons day2 (HCons day3 HNil))) =
 main :: IO ()
 main = do
 
-  r <- (fetch'
+  r <- fetch'
       (HCons'
         (NamedCSVStore "benchmarks/data/jan.csv" :: NamedCSVStore [Listen])
         (HCons' (NamedCSVStore "benchmarks/data/feb.csv" :: NamedCSVStore [Listen])
                 (HCons' (NamedCSVStore "benchmarks/data/mar.csv" :: NamedCSVStore [Listen]) HNil')
         )
       )
-    )
 
   defaultMain
     [ bgroup

examples/word-count/app/Main.hs

@@ -12,7 +12,7 @@ generateWords
        '[[String]]
        '[FileStore [String]]
        N1
-generateWords = functionTask (\_ -> ["apple", "banana", "grapefruit"]) (FileStore "fruit.txt")
+generateWords = functionTask (const ["apple", "banana", "grapefruit"]) (FileStore "fruit.txt")
 
 newtype CommaSepFile a = CommaSepFile String
 
@@ -27,7 +27,7 @@ countLetters
        '[FileStore [String]]
        N1
 countLetters = functionTask (map f) (FileStore "count.txt")
-  where f word = (concat [word, ":", show (length word)])
+  where f word = concat [word, ":", show (length word)]
 
 circuit
   :: Circuit

src/Pipeline/DataStore.hs

@@ -61,8 +61,7 @@ newtype FileStore a = FileStore FilePath deriving (Eq, Show, Generic, NFData)
 -}
 instance DataStore FileStore String where
   fetch (FileStore fname) = readFile fname
-  save (FileStore fname) x = do
-    writeFile fname x
+  save (FileStore fname) = writeFile fname
   empty taskUUID jobUUID = FileStore <$> createNewFile taskUUID jobUUID ".txt"
 
 {-|

src/Pipeline/Internal/Backend/BasicNetwork.hs

@@ -65,15 +65,15 @@ taskExecuter (Task f) taskUUID inPipes outPipes = forever
   (do
     (jobUUID, taskInputs) <- readPipes inPipes
     r                  <-
-      (runExceptT
+      runExceptT
         (do
           outputStore <- lift (empty taskUUID jobUUID)
           input <- (ExceptT . return) taskInputs
           catchE (intercept (f input outputStore))
                  (throwE . TaskError . ExceptionMessage . displayException)
           return (HCons' outputStore HNil')
         )
-      )
+
     writePipes jobUUID r outPipes
   )
 
@@ -181,7 +181,7 @@ instance BuildNetworkAlg BasicNetwork Map where
               (do
                 (jobUUID, mapInputs) <- readPipes (outputs n)
                 r                 <-
-                  (runExceptT
+                  runExceptT
                     (do
                       inputs             <- (ExceptT . return) mapInputs
                       HCons inputs' HNil <- (lift . fetch') inputs
@@ -202,7 +202,7 @@ instance BuildNetworkAlg BasicNetwork Map where
                       lift (save outputStore mapOutput)
                       return (HCons' outputStore HNil')
                     )
-                  )
+
                 writePipes jobUUID r output
               )
             stopNetwork mapNetwork

src/Pipeline/Internal/Common/TypeList.hs

@@ -32,4 +32,4 @@ type family Apply (fs :: [Type -> Type]) (as :: [Type]) where
 
 type family Replicate (n :: Nat) (a :: k) :: [k] where
   Replicate 'Zero _ = '[]
-  Replicate ('Succ n) x = x ': (Replicate n x)
+  Replicate ('Succ n) x = x ': Replicate n x