Some whitespace normalization

Author: mgsloan

Data/JSString.hs

@@ -62,7 +62,7 @@ module Data.JSString ( JSString
                      , minimum
 
                        -- * Construction
-                       
+
                        -- ** Scans
                      , scanl
                      , scanl1
@@ -205,7 +205,7 @@ instance Data JSString where
   gunfold k z c = case constrIndex c of
     1 -> k (z pack)
     _ -> P.error "gunfold"
-  dataTypeOf _ = jsstringDataType  
+  dataTypeOf _ = jsstringDataType
 
 packConstr :: Constr
 packConstr = mkConstr jsstringDataType "pack" [] Prefix
@@ -1472,7 +1472,7 @@ count pat src
 --  RULES
 -- "JSSTRING count/singleton -> countChar" [~1] forall c t.
 --    count (singleton c) t = countChar c t
--- 
+--
 
 -- | /O(n)/ The 'countChar' function returns the number of times the
 -- query element appears in the given 'JSString'. Subject to fusion.
@@ -1514,7 +1514,7 @@ words x = loop 0# -- js_words x {- t@(Text arr off len) = loop 0 0
 words' :: JSString -> [JSString]
 words' x = unsafeCoerce (js_words x)
 {-# INLINE words' #-}
-                              
+
 -- | /O(n)/ Breaks a 'JSString' up into a list of 'JSString's at
 -- newline 'Char's. The resulting strings do not contain newlines.
 lines :: JSString -> [JSString]
@@ -1742,7 +1742,7 @@ foreign import javascript unsafe
 --  "h$jsstringGroup1" js_group1
 --  :: Int# -> Bool -> JSString -> (# Int#, JSString #)
 foreign import javascript unsafe
-   "h$jsstringConcat" js_concat :: Exts.Any {- [JSString] -} -> JSString 
+   "h$jsstringConcat" js_concat :: Exts.Any {- [JSString] -} -> JSString
 -- debug this below!
 foreign import javascript unsafe
    "h$jsstringReplace" js_replace :: JSString -> JSString -> JSString -> JSString

Data/JSString/Internal/Type.hs

@@ -7,7 +7,7 @@ module Data.JSString.Internal.Type ( JSString(..)
                                    , safe
                                    , firstf
                                    ) where
-                                     
+
                                      {-
     -- * Construction
     , text

GHCJS/Foreign.hs

@@ -55,7 +55,7 @@ module GHCJS.Foreign ( jsTrue
                      , isBoolean
                      , isSymbol
                      , isNumber
-{-                     
+{-
                      , toArray
                      , newArray
                      , fromArray

GHCJS/Internal/Types.hs

@@ -40,5 +40,3 @@ type family Mutability (a :: MutabilityType s) :: IsItMutable where
   Mutability Immutable     = IsImmutable
   Mutability Mutable       = IsMutable
   Mutability (STMutable s) = IsMutable
-
-

GHCJS/Marshal.hs

@@ -301,5 +301,3 @@ toJSVal_aeson x = cv (AE.toJSON x)
       obj@(OI.Object obj') <- OI.create
       mapM_ (\(k,v) -> convertValue v >>= \v' -> OI.setProp (JSS.textToJSString k) v' obj) (H.toList o)
       return obj'
-
-

GHCJS/Marshal/Internal.hs

@@ -70,7 +70,7 @@ class FromJSVal a where
 
   fromJSValUncheckedListOf :: JSVal -> IO [a]
   fromJSValUncheckedListOf = mapM fromJSValUnchecked <=< Prim.fromJSArray
-  
+
   -- default fromJSVal :: PFromJSVal a => JSVal a -> IO (Maybe a)
   -- fromJSVal x = return (Just (pFromJSVal x))
 

GHCJS/Marshal/Pure.hs

@@ -151,4 +151,3 @@ foreign import javascript unsafe "$r = $1;" intToJSVal    :: Int#    -> JSVal
 foreign import javascript unsafe "$r = $1;" doubleToJSVal :: Double# -> JSVal
 foreign import javascript unsafe "$r = $1;" floatToJSVal  :: Float#  -> JSVal
 foreign import javascript unsafe "$r = $1;" charToJSVal   :: Char#   -> JSVal
-

GHCJS/Nullable.hs

@@ -15,5 +15,3 @@ nullableToMaybe (Nullable r) = pFromJSVal r
 maybeToNullable :: PToJSVal a => Maybe a -> Nullable a
 maybeToNullable = Nullable . pToJSVal
 {-# INLINE maybeToNullable #-}
-
-