pDir = strOption (long "source" 
                  <> short 's' 
                  <> metavar "DIRECTORY"
                  <> value "/data/crubadan"
                  <> showDefault
                  <> help h)
  where h = "Root directory of files to use as the test \
            \data (only necessary if \"--use-files\" is \
            \used"
pDir = strOption (long "source" 
                  <> short 's' 
                  <> metavar "DIRECTORY"
                  <> value "/data/crubadan"
                  <> showDefault
                  <> help h)
  where h = "Root directory of files to use as the test \
            \data (only necessary if \"--use-files\" is \
            \used"
pDir = strOption (long "source" 
                  <> short 's' 
                  <> metavar "DIRECTORY"
                  <> value "/data/crubadan"
                  <> showDefault
                  <> help h)
  where h = "Root directory of files to use as the test \
            \data (only necessary if \"--use-files\" is \
            \used"