1
1
mirror of https://github.com/github/semantic.git synced 2024-11-28 18:23:44 +03:00

fix lints, again

This commit is contained in:
Patrick Thomson 2018-09-17 11:33:48 -04:00
parent f6f2476641
commit 3c33b42031

View File

@ -39,7 +39,6 @@ import System.Exit (die)
import System.FilePath.Posix (takeDirectory)
import Text.Show.Pretty (ppShow, pPrint)
import Control.Rewriting
import Control.Rewriting as Rewriting
import qualified Data.ByteString as B
import Data.History
@ -172,7 +171,7 @@ onTrees' = do
guard (null els)
k <- modified $ Literal.TextElement "\"hi\""
v <- modified $ Literal.TextElement "\"bye\""
pair <- modified $ (Literal.KeyValue k v)
pair <- modified $ Literal.KeyValue k v
pure (Literal.Hash (pair : els))
testJson = do