Fix some lints

lib/Cache.hs

@@ -1,7 +1,4 @@
-{-# LANGUAGE
-NoImplicitPrelude
-  #-}
-
+{-# LANGUAGE NoImplicitPrelude #-}
 
 module Cache
 (

lib/Config.hs

@@ -1,7 +1,5 @@
-{-# LANGUAGE
-OverloadedStrings,
-NoImplicitPrelude
-  #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 
 module Config
@@ -69,7 +67,7 @@ readConfig :: IO Config
 readConfig = do
   let filename = "config.json"
   exists <- doesFileExist filename
-  when (not exists) $ do
+  unless exists $ do
     putStrLn "config.json doesn't exist, creating it"
     BSL.writeFile filename (Aeson.encodePretty (def :: Config))
   contents <- BSL.fromStrict <$> BS.readFile filename

lib/Guide.hs

@@ -1,12 +1,9 @@
-{-# LANGUAGE
-OverloadedStrings,
-ScopedTypeVariables,
-TypeFamilies,
-DataKinds,
-FlexibleContexts,
-NoImplicitPrelude
-  #-}
-
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 module Guide
 (

lib/JS.hs

@@ -1,12 +1,9 @@
-{-# LANGUAGE
-FlexibleInstances,
-GeneralizedNewtypeDeriving,
-OverloadedStrings,
-QuasiQuotes,
-BangPatterns,
-NoImplicitPrelude
-  #-}
-
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE BangPatterns #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 -- TODO: try to make it more type-safe somehow?
 

lib/Markdown.hs

@@ -1,10 +1,7 @@
-{-# LANGUAGE
-OverloadedStrings,
-FlexibleInstances,
-FlexibleContexts,
-NoImplicitPrelude
-  #-}
-
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 module Markdown
 (

lib/Merge.hs

@@ -1,7 +1,5 @@
-{-# LANGUAGE
-OverloadedStrings,
-NoImplicitPrelude
-  #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 
 module Merge

lib/SafeCopy.hs

@@ -1,6 +1,4 @@
-{-# LANGUAGE
-CPP
-  #-}
+{-# LANGUAGE CPP #-}
 
 
 -- Hack for bug in older Cabal versions
@@ -38,7 +36,7 @@ internalDeriveSafeCopySorted versionId kindName tyName = do
   internalDeriveSafeCopySorted' versionId kindName tyName info
 
 internalDeriveSafeCopySorted' :: Version a -> Name -> Name -> Info -> Q [Dec]
-internalDeriveSafeCopySorted' versionId kindName tyName info = do
+internalDeriveSafeCopySorted' versionId kindName tyName info =
   case info of
 #if MIN_VERSION_template_haskell(2,11,0)
     TyConI (DataD context _name tyvars _kind cons _derivs)

lib/Types.hs

@@ -1,11 +1,9 @@
-{-# LANGUAGE
-QuasiQuotes,
-FlexibleContexts,
-FlexibleInstances,
-TypeFamilies,
-OverloadedStrings,
-NoImplicitPrelude
-  #-}
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 
 {-# OPTIONS_GHC -fno-warn-orphans #-}

lib/Utils.hs

@@ -1,13 +1,11 @@
-{-# LANGUAGE
-ScopedTypeVariables,
-QuasiQuotes,
-OverloadedStrings,
-GeneralizedNewtypeDeriving,
-FlexibleContexts,
-FlexibleInstances,
-TypeFamilies,
-NoImplicitPrelude
-  #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 
 {-# OPTIONS_GHC -fno-warn-orphans #-}
@@ -114,12 +112,12 @@ import Data.Generics.Uniplate.Data (transform)
 
 -- | Move the -1st element that satisfies the predicate- up.
 moveUp :: (a -> Bool) -> [a] -> [a]
-moveUp p (x:y:xs) = if p y then (y:x:xs) else x : moveUp p (y:xs)
+moveUp p (x:y:xs) = if p y then y : x : xs else x : moveUp p (y:xs)
 moveUp _ xs = xs
 
 -- | Move the -1st element that satisfies the predicate- down.
 moveDown :: (a -> Bool) -> [a] -> [a]
-moveDown p (x:y:xs) = if p x then (y:x:xs) else x : moveDown p (y:xs)
+moveDown p (x:y:xs) = if p x then y : x : xs else x : moveDown p (y:xs)
 moveDown _ xs = xs
 
 deleteFirst :: (a -> Bool) -> [a] -> [a]
@@ -386,11 +384,11 @@ changelog bareTyName (newVer, Past oldVer) changes = do
     _             -> fail "changelog: the type must be a record"
   -- Check that all 'Added' fields are actually present in the new type
   -- and that all 'Removed' fields aren't there
-  for_ (M.keys added) $ \n -> do
+  for_ (M.keys added) $ \n ->
     unless (n `elem` map fst fields) $ fail $
       printf "changelog: field %s isn't present in %s"
              (show (mkNew n)) (show newTyName)
-  for_ (M.keys removed) $ \n -> do
+  for_ (M.keys removed) $ \n ->
     when (n `elem` map fst fields) $ fail $
       printf "changelog: field %s is present in %s \
              \but was supposed to be removed"
@@ -491,7 +489,7 @@ genVer tyName ver constructors = do
                           (bangType bangNotStrict (conT fType))
                | (fName, fType) <- fields]
 
-  cons' <- for constructors $ \genCons -> do
+  cons' <- for constructors $ \genCons ->
     case genCons of
       Copy conName -> copyConstructor conName
       Custom conName fields -> customConstructor conName fields
@@ -546,7 +544,7 @@ migrateVer tyName ver constructors = do
               (normalB res)
               []
 
-  branches' <- for constructors $ \genCons -> do
+  branches' <- for constructors $ \genCons ->
     case genCons of
       CopyM conName -> copyConstructor conName
       CustomM conName res -> customConstructor conName res

lib/View.hs

@@ -1,10 +1,7 @@
-{-# LANGUAGE
-QuasiQuotes,
-OverloadedStrings,
-FlexibleContexts,
-NoImplicitPrelude
-  #-}
-
+{-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 module View
 (