Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Drop UnicodeSyntax
  • Loading branch information
basvandijk committed May 23, 2014
1 parent a3e4eee commit eaa96f6
Show file tree
Hide file tree
Showing 6 changed files with 431 additions and 432 deletions.
4 changes: 2 additions & 2 deletions Poll.hsc
@@ -1,4 +1,4 @@
{-# LANGUAGE UnicodeSyntax, NoImplicitPrelude #-}
{-# LANGUAGE NoImplicitPrelude #-}

#include <poll.h>

Expand All @@ -18,7 +18,7 @@ import Foreign.C.Types ( CShort )
-- So I use an intermediate module that makes the choice:
import Event ( Event, evtRead, evtWrite )

toEvent CShort Event
toEvent :: CShort -> Event
toEvent e = remap (#const POLLIN) evtRead `mappend`
remap (#const POLLOUT) evtWrite
where
Expand Down
6 changes: 3 additions & 3 deletions Setup.hs
@@ -1,6 +1,6 @@
#! /usr/bin/env runhaskell

{-# LANGUAGE NoImplicitPrelude, UnicodeSyntax #-}
{-# LANGUAGE NoImplicitPrelude #-}

module Main (main) where

Expand Down Expand Up @@ -30,13 +30,13 @@ import Distribution.PackageDescription ( PackageDescription(..) )
-- Cabal setup program which sets the CPP define '__HADDOCK __' when haddock is run.
-------------------------------------------------------------------------------

main IO ()
main :: IO ()
main = defaultMainWithHooks hooks
where
hooks = simpleUserHooks { haddockHook = haddockHook' }

-- Define __HADDOCK__ for CPP when running haddock.
haddockHook' PackageDescription LocalBuildInfo UserHooks HaddockFlags IO ()
haddockHook' :: PackageDescription -> LocalBuildInfo -> UserHooks -> HaddockFlags -> IO ()
haddockHook' pkg lbi =
haddockHook simpleUserHooks pkg (lbi { withPrograms = p })
where
Expand Down

0 comments on commit eaa96f6

Please sign in to comment.