Merge pull request #1157 from puffnfresh/bug/ghc7101-isop
Fix Docs Render compilation with GHC 7.10.1
commit57f097662263f07c88faf9b7c8a36a8e7c34459f
authorPhil Freeman <paf31@cantab.net>
dateWed 10 Jun 2015, 09:37 (11 years ago)
parent13ad776b29a328
src/Language/PureScript/Docs/Render.hs+1
@@ -101,6 +101,7 @@ addDefaultFixity rd@RenderedDeclaration{..}
101101 | isOp rdTitle && isNothing rdFixity = rd { rdFixity = Just defaultFixity }
102102 | otherwise = rd
103103 where
104+ isOp :: String -> Bool
104105 isOp str = "(" `isPrefixOf` str && ")" `isSuffixOf` str
105106 defaultFixity = P.Fixity P.Infixl (-1)
106107