Skip to content

Commit

Permalink
stylish-haskell wibbles
Browse files Browse the repository at this point in the history
  • Loading branch information
ivan-m committed Jan 26, 2017
1 parent d828f6f commit c39c705
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions Text/PrettyPrint/Leijen/Text.hs
Expand Up @@ -118,10 +118,10 @@ module Text.PrettyPrint.Leijen.Text (

) where

import Prelude ()
import Prelude ()
import Prelude.Compat hiding ((<$>))

import Data.String (IsString (..))
import Data.String (IsString(..))
import System.IO (Handle, hPutChar, stdout)

import Data.Int (Int64)
Expand Down Expand Up @@ -233,8 +233,8 @@ encloseSep left right sp ds
-- (If you want put the commas in front of their elements instead of
-- at the end, you should use 'tupled' or, in general, 'encloseSep'.)
punctuate :: Doc -> [Doc] -> [Doc]
punctuate _ [] = []
punctuate _ [d] = [d]
punctuate _ [] = []
punctuate _ [d] = [d]
punctuate p (d:ds) = (d <> p) : punctuate p ds


Expand Down Expand Up @@ -612,7 +612,7 @@ instance (Pretty a, Pretty b, Pretty c) => Pretty (a,b,c) where
pretty (x,y,z)= tupled [pretty x, pretty y, pretty z]

instance Pretty a => Pretty (Maybe a) where
pretty Nothing = empty
pretty Nothing = empty

pretty (Just x) = pretty x

Expand Down

0 comments on commit c39c705

Please sign in to comment.