Fix a silly mistake
commit91130e412355c9035c59c2eca74b14b42ba7f2c2
authorBenjamin Kovach <bkovach5@uga.edu>
dateThu 15 Oct 2015, 16:10 (11 years ago)
parentf61d03f
src/Language/PureScript/Pretty/Values.hs+1−1
@@ -219,5 +219,5 @@ prettyPrintBinder :: Binder -> String
219219prettyPrintBinder (ConstructorBinder ctor []) = showQualified runProperName ctor
220220prettyPrintBinder (ConstructorBinder ctor args) = showQualified runProperName ctor ++ " " ++ unwords (map prettyPrintBinderAtom args)
221221prettyPrintBinder (PositionedBinder _ _ binder) = prettyPrintBinder binder
222−prettyPrintBinder (TypedBinder ty binder) = prettyPrintType ty ++ " :: " ++ prettyPrintBinder binder
222+prettyPrintBinder (TypedBinder ty binder) = prettyPrintBinder binder ++ " :: " ++ prettyPrintType ty
223223prettyPrintBinder b = prettyPrintBinderAtom b