{-# LANGUAGE FlexibleContexts #-}
-- Split a module with a re-export
module Split.Clean
    ( -- Symbols that are exported but not declared go into ReExported
      clean
    ) where

import Data.Char (isAlphaNum)
import Data.List (dropWhile)
import URL

clean :: (ToURL url, Show (URLT url)) => url -> String
clean = filter isAlphaNum . show . toURL