TinyURL-0.1.0/0000755000175000017500000000000011146337663013306 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/0000755000175000017500000000000011146341252014134 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/config0000644000175000017500000000013411144702722015323 0ustar rwbartonrwbarton[core] repositoryformatversion = 0 filemode = true bare = false logallrefupdates = true TinyURL-0.1.0/.git/logs/0000755000175000017500000000000011146337003015077 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/logs/HEAD0000644000175000017500000000052011146340125015517 0ustar rwbartonrwbarton0000000000000000000000000000000000000000 39e8671ea0fd40f36cb633a7b81bb94f5d765c73 Reid Barton 1234812419 -0500 commit (initial): Initial version 39e8671ea0fd40f36cb633a7b81bb94f5d765c73 6feef8a19f8a76e01fe904d0807fbfc4ee5b70b0 Reid Barton 1234813011 -0500 commit (amend): Initial version TinyURL-0.1.0/.git/logs/refs/0000755000175000017500000000000011146337003016036 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/logs/refs/heads/0000755000175000017500000000000011146337003017122 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/logs/refs/heads/master0000644000175000017500000000052011146340125020334 0ustar rwbartonrwbarton0000000000000000000000000000000000000000 39e8671ea0fd40f36cb633a7b81bb94f5d765c73 Reid Barton 1234812419 -0500 commit (initial): Initial version 39e8671ea0fd40f36cb633a7b81bb94f5d765c73 6feef8a19f8a76e01fe904d0807fbfc4ee5b70b0 Reid Barton 1234813011 -0500 commit (amend): Initial version TinyURL-0.1.0/.git/HEAD0000644000175000017500000000002711144702722014560 0ustar rwbartonrwbartonref: refs/heads/master TinyURL-0.1.0/.git/hooks/0000755000175000017500000000000011144702722015260 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/hooks/post-commit0000644000175000017500000000023011144702722017451 0ustar rwbartonrwbarton#!/bin/sh # # An example hook script that is called after a successful # commit is made. # # To enable this hook, make this file executable. : Nothing TinyURL-0.1.0/.git/hooks/pre-applypatch0000644000175000017500000000060311144702722020133 0ustar rwbartonrwbarton#!/bin/sh # # An example hook script to verify what is about to be committed # by applypatch from an e-mail message. # # The hook should exit with non-zero status after issuing an # appropriate message if it wants to stop the commit. # # To enable this hook, make this file executable. . git-sh-setup test -x "$GIT_DIR/hooks/pre-commit" && exec "$GIT_DIR/hooks/pre-commit" ${1+"$@"} : TinyURL-0.1.0/.git/hooks/post-update0000644000175000017500000000031711144702722017451 0ustar rwbartonrwbarton#!/bin/sh # # An example hook script to prepare a packed repository for use over # dumb transports. # # To enable this hook, make this file executable by "chmod +x post-update". exec git-update-server-info TinyURL-0.1.0/.git/hooks/commit-msg0000644000175000017500000000156711144702722017270 0ustar rwbartonrwbarton#!/bin/sh # # An example hook script to check the commit log message. # Called by git-commit with one argument, the name of the file # that has the commit message. The hook should exit with non-zero # status after issuing an appropriate message if it wants to stop the # commit. The hook is allowed to edit the commit message file. # # To enable this hook, make this file executable. # Uncomment the below to add a Signed-off-by line to the message. # Doing this in a hook is a bad idea in general, but the prepare-commit-msg # hook is more suited to it. # # SOB=$(git var GIT_AUTHOR_IDENT | sed -n 's/^\(.*>\).*$/Signed-off-by: \1/p') # grep -qs "^$SOB" "$1" || echo "$SOB" >> "$1" # This example catches duplicate Signed-off-by lines. test "" = "$(grep '^Signed-off-by: ' "$1" | sort | uniq -c | sed -e '/^[ ]*1[ ]/d')" || { echo >&2 Duplicate Signed-off-by lines. exit 1 } TinyURL-0.1.0/.git/hooks/pre-rebase0000644000175000017500000001024611144702722017233 0ustar rwbartonrwbarton#!/bin/sh # # Copyright (c) 2006 Junio C Hamano # publish=next basebranch="$1" if test "$#" = 2 then topic="refs/heads/$2" else topic=`git symbolic-ref HEAD` fi case "$basebranch,$topic" in master,refs/heads/??/*) ;; *) exit 0 ;# we do not interrupt others. ;; esac # Now we are dealing with a topic branch being rebased # on top of master. Is it OK to rebase it? # Is topic fully merged to master? not_in_master=`git-rev-list --pretty=oneline ^master "$topic"` if test -z "$not_in_master" then echo >&2 "$topic is fully merged to master; better remove it." exit 1 ;# we could allow it, but there is no point. fi # Is topic ever merged to next? If so you should not be rebasing it. only_next_1=`git-rev-list ^master "^$topic" ${publish} | sort` only_next_2=`git-rev-list ^master ${publish} | sort` if test "$only_next_1" = "$only_next_2" then not_in_topic=`git-rev-list "^$topic" master` if test -z "$not_in_topic" then echo >&2 "$topic is already up-to-date with master" exit 1 ;# we could allow it, but there is no point. else exit 0 fi else not_in_next=`git-rev-list --pretty=oneline ^${publish} "$topic"` perl -e ' my $topic = $ARGV[0]; my $msg = "* $topic has commits already merged to public branch:\n"; my (%not_in_next) = map { /^([0-9a-f]+) /; ($1 => 1); } split(/\n/, $ARGV[1]); for my $elem (map { /^([0-9a-f]+) (.*)$/; [$1 => $2]; } split(/\n/, $ARGV[2])) { if (!exists $not_in_next{$elem->[0]}) { if ($msg) { print STDERR $msg; undef $msg; } print STDERR " $elem->[1]\n"; } } ' "$topic" "$not_in_next" "$not_in_master" exit 1 fi exit 0 ################################################################ This sample hook safeguards topic branches that have been published from being rewound. The workflow assumed here is: * Once a topic branch forks from "master", "master" is never merged into it again (either directly or indirectly). * Once a topic branch is fully cooked and merged into "master", it is deleted. If you need to build on top of it to correct earlier mistakes, a new topic branch is created by forking at the tip of the "master". This is not strictly necessary, but it makes it easier to keep your history simple. * Whenever you need to test or publish your changes to topic branches, merge them into "next" branch. The script, being an example, hardcodes the publish branch name to be "next", but it is trivial to make it configurable via $GIT_DIR/config mechanism. With this workflow, you would want to know: (1) ... if a topic branch has ever been merged to "next". Young topic branches can have stupid mistakes you would rather clean up before publishing, and things that have not been merged into other branches can be easily rebased without affecting other people. But once it is published, you would not want to rewind it. (2) ... if a topic branch has been fully merged to "master". Then you can delete it. More importantly, you should not build on top of it -- other people may already want to change things related to the topic as patches against your "master", so if you need further changes, it is better to fork the topic (perhaps with the same name) afresh from the tip of "master". Let's look at this example: o---o---o---o---o---o---o---o---o---o "next" / / / / / a---a---b A / / / / / / / / c---c---c---c B / / / / \ / / / / b---b C \ / / / / / \ / ---o---o---o---o---o---o---o---o---o---o---o "master" A, B and C are topic branches. * A has one fix since it was merged up to "next". * B has finished. It has been fully merged up to "master" and "next", and is ready to be deleted. * C has not merged to "next" at all. We would want to allow C to be rebased, refuse A, and encourage B to be deleted. To compute (1): git-rev-list ^master ^topic next git-rev-list ^master next if these match, topic has not merged in next at all. To compute (2): git-rev-list master..topic if this is empty, it is fully merged to "master". TinyURL-0.1.0/.git/hooks/prepare-commit-msg0000644000175000017500000000225411144702722020716 0ustar rwbartonrwbarton#!/bin/sh # # An example hook script to prepare the commit log message. # Called by git-commit with the name of the file that has the # commit message, followed by the description of the commit # message's source. The hook's purpose is to edit the commit # message file. If the hook fails with a non-zero status, # the commit is aborted. # # To enable this hook, make this file executable. # This hook includes three examples. The first comments out the # "Conflicts:" part of a merge commit. # # The second includes the output of "git diff --name-status -r" # into the message, just before the "git status" output. It is # commented because it doesn't cope with --amend or with squashed # commits. # # The third example adds a Signed-off-by line to the message, that can # still be edited. This is rarely a good idea. case "$2,$3" in merge,) perl -i -ne 's/^/# /, s/^# #/#/ if /^Conflicts/ .. /#/; print' "$1" ;; # ,|template,) # perl -i -pe ' # print "\n" . `git diff --cached --name-status -r` # if /^#/ && $first++ == 0' "$1" ;; *) ;; esac # SOB=$(git var GIT_AUTHOR_IDENT | sed -n 's/^\(.*>\).*$/Signed-off-by: \1/p') # grep -qs "^$SOB" "$1" || echo "$SOB" >> "$1" TinyURL-0.1.0/.git/hooks/pre-commit0000644000175000017500000000325211144702722017261 0ustar rwbartonrwbarton#!/bin/sh # # An example hook script to verify what is about to be committed. # Called by git-commit with no arguments. The hook should # exit with non-zero status after issuing an appropriate message if # it wants to stop the commit. # # To enable this hook, make this file executable. # This is slightly modified from Andrew Morton's Perfect Patch. # Lines you introduce should not have trailing whitespace. # Also check for an indentation that has SP before a TAB. if git-rev-parse --verify HEAD 2>/dev/null then git-diff-index -p -M --cached HEAD -- else # NEEDSWORK: we should produce a diff with an empty tree here # if we want to do the same verification for the initial import. : fi | perl -e ' my $found_bad = 0; my $filename; my $reported_filename = ""; my $lineno; sub bad_line { my ($why, $line) = @_; if (!$found_bad) { print STDERR "*\n"; print STDERR "* You have some suspicious patch lines:\n"; print STDERR "*\n"; $found_bad = 1; } if ($reported_filename ne $filename) { print STDERR "* In $filename\n"; $reported_filename = $filename; } print STDERR "* $why (line $lineno)\n"; print STDERR "$filename:$lineno:$line\n"; } while (<>) { if (m|^diff --git a/(.*) b/\1$|) { $filename = $1; next; } if (/^@@ -\S+ \+(\d+)/) { $lineno = $1 - 1; next; } if (/^ /) { $lineno++; next; } if (s/^\+//) { $lineno++; chomp; if (/\s$/) { bad_line("trailing whitespace", $_); } if (/^\s* \t/) { bad_line("indent SP followed by a TAB", $_); } if (/^([<>])\1{6} |^={7}$/) { bad_line("unresolved merge conflict", $_); } } } exit($found_bad); ' TinyURL-0.1.0/.git/hooks/applypatch-msg0000644000175000017500000000067111144702722020140 0ustar rwbartonrwbarton#!/bin/sh # # An example hook script to check the commit log message taken by # applypatch from an e-mail message. # # The hook should exit with non-zero status after issuing an # appropriate message if it wants to stop the commit. The hook is # allowed to edit the commit message file. # # To enable this hook, make this file executable. . git-sh-setup test -x "$GIT_DIR/hooks/commit-msg" && exec "$GIT_DIR/hooks/commit-msg" ${1+"$@"} : TinyURL-0.1.0/.git/hooks/update0000644000175000017500000000553611144702722016476 0ustar rwbartonrwbarton#!/bin/sh # # An example hook script to blocks unannotated tags from entering. # Called by git-receive-pack with arguments: refname sha1-old sha1-new # # To enable this hook, make this file executable by "chmod +x update". # # Config # ------ # hooks.allowunannotated # This boolean sets whether unannotated tags will be allowed into the # repository. By default they won't be. # hooks.allowdeletetag # This boolean sets whether deleting tags will be allowed in the # repository. By default they won't be. # hooks.allowdeletebranch # This boolean sets whether deleting branches will be allowed in the # repository. By default they won't be. # # --- Command line refname="$1" oldrev="$2" newrev="$3" # --- Safety check if [ -z "$GIT_DIR" ]; then echo "Don't run this script from the command line." >&2 echo " (if you want, you could supply GIT_DIR then run" >&2 echo " $0 )" >&2 exit 1 fi if [ -z "$refname" -o -z "$oldrev" -o -z "$newrev" ]; then echo "Usage: $0 " >&2 exit 1 fi # --- Config allowunannotated=$(git config --bool hooks.allowunannotated) allowdeletebranch=$(git config --bool hooks.allowdeletebranch) allowdeletetag=$(git config --bool hooks.allowdeletetag) # check for no description projectdesc=$(sed -e '1q' "$GIT_DIR/description") if [ -z "$projectdesc" -o "$projectdesc" = "Unnamed repository; edit this file to name it for gitweb." ]; then echo "*** Project description file hasn't been set" >&2 exit 1 fi # --- Check types # if $newrev is 0000...0000, it's a commit to delete a ref. if [ "$newrev" = "0000000000000000000000000000000000000000" ]; then newrev_type=delete else newrev_type=$(git-cat-file -t $newrev) fi case "$refname","$newrev_type" in refs/tags/*,commit) # un-annotated tag short_refname=${refname##refs/tags/} if [ "$allowunannotated" != "true" ]; then echo "*** The un-annotated tag, $short_refname, is not allowed in this repository" >&2 echo "*** Use 'git tag [ -a | -s ]' for tags you want to propagate." >&2 exit 1 fi ;; refs/tags/*,delete) # delete tag if [ "$allowdeletetag" != "true" ]; then echo "*** Deleting a tag is not allowed in this repository" >&2 exit 1 fi ;; refs/tags/*,tag) # annotated tag ;; refs/heads/*,commit) # branch ;; refs/heads/*,delete) # delete branch if [ "$allowdeletebranch" != "true" ]; then echo "*** Deleting a branch is not allowed in this repository" >&2 exit 1 fi ;; refs/remotes/*,commit) # tracking branch ;; refs/remotes/*,delete) # delete tracking branch if [ "$allowdeletebranch" != "true" ]; then echo "*** Deleting a tracking branch is not allowed in this repository" >&2 exit 1 fi ;; *) # Anything else (is there anything else?) echo "*** Update hook: unknown type of update to ref $refname of type $newrev_type" >&2 exit 1 ;; esac # --- Finished exit 0 TinyURL-0.1.0/.git/hooks/post-receive0000644000175000017500000000077611144702722017622 0ustar rwbartonrwbarton#!/bin/sh # # An example hook script for the post-receive event # # This script is run after receive-pack has accepted a pack and the # repository has been updated. It is passed arguments in through stdin # in the form # # For example: # aa453216d1b3e49e7f6f98441fa56946ddcd6a20 68f7abf4e6f922807889f52bc043ecd31b79f814 refs/heads/master # # see contrib/hooks/ for an sample, or uncomment the next line (on debian) # #. /usr/share/doc/git-core/contrib/hooks/post-receive-email TinyURL-0.1.0/.git/info/0000755000175000017500000000000011144702722015070 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/info/exclude0000644000175000017500000000036011144702722016443 0ustar rwbartonrwbarton# git-ls-files --others --exclude-from=.git/info/exclude # Lines that start with '#' are comments. # For a project mostly in C, the following would be a good set of # exclude patterns (uncomment them if you want to use them): # *.[oa] # *~ TinyURL-0.1.0/.git/index0000644000175000017500000000065011146341252015167 0ustar rwbartonrwbartonDIRCIIeauT ڞQk r .gitignoreIoIoeTJgv68gLICENSEICICeb),ش((mNetwork/TinyURL.hsI`I`eL[ b'N&2Nd0 Setup.lhsIIeٌ3:RM TinyURL.cabal0i!!FE@FNcTinyURL-0.1.0/.git/refs/0000755000175000017500000000000011144702722015074 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/refs/heads/0000755000175000017500000000000011146340125016155 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/refs/heads/master0000644000175000017500000000005111146340125017367 0ustar rwbartonrwbarton6feef8a19f8a76e01fe904d0807fbfc4ee5b70b0 TinyURL-0.1.0/.git/refs/tags/0000755000175000017500000000000011144702722016032 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/COMMIT_EDITMSG0000644000175000017500000000064511146340123016224 0ustar rwbartonrwbartonInitial version # Please enter the commit message for your changes. # (Comment lines starting with '#' will not be included) # # Committer: Reid Barton # # On branch master # # Initial commit # # Changes to be committed: # (use "git rm --cached ..." to unstage) # # new file: .gitignore # new file: LICENSE # new file: Network/TinyURL.hs # new file: Setup.lhs # new file: TinyURL.cabal # TinyURL-0.1.0/.git/description0000644000175000017500000000007211144702722016402 0ustar rwbartonrwbartonUnnamed repository; edit this file to name it for gitweb. TinyURL-0.1.0/.git/objects/0000755000175000017500000000000011146340125015563 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/objects/a3/0000755000175000017500000000000011146336772016103 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/objects/a3/29168a2cb4a1d8b418cf2828bcbdac056df2a20000444000175000017500000000070611146336772023437 0ustar rwbartonrwbartonxAo09W3o>禱7xuvbk .Yo asHo[nҝ׫&[FQ76Yv2u;&-[JTL`rM ˺F5hd|+TH`u
  • 204 Nq#R ۥѐ[I<;(Rb-IΤm'p[qrrՒ`O%b맲aדdUm` TinyURL-0.1.0/.git/objects/9a/0000755000175000017500000000000011144702740016077 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/objects/9a/54144ab29167761ec1db360238dd0667c2f9e00000444000175000017500000000144611144702740023011 0ustar rwbartonrwbartonxAo8_16mnODdKRq},эK $:A}(E{ڃly9Ñ>~oiw77Çe=0!g~oBvS%vazh2yel|sz|S).QpmwꚚGO~}KcxZ]!r>nNMڎ&I qז& W/Mh2Etkxd<^D45>AX^P9]G0Ժݵ0l ݴ~3`;GǮ>Oo鰡khCGL%Ar3=P{ގ0NlyG0@~h1J5,0Ħp5 OlMA^Ǒgx^ivhK\4pޙVg*Fܦ4}wH;91pZلtUuBQQ:V;gzo*w7^?]+ɝ6Mz2,^$(uX&b^62aꖩ`3`@JFrV L 1pl ۘNq-l;,/Ss2RVj+~LEԉFGZ.) C+ FjRܺFwp~t~j*ߟIj{NL+`ԣJRLϟֽS  2q쏟A{.5xmI5i%.EyVTinyURL-0.1.0/.git/objects/6f/0000755000175000017500000000000011146340125016076 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/objects/6f/eef8a19f8a76e01fe904d0807fbfc4ee5b70b00000444000175000017500000000021411146340125023532 0ustar rwbartonrwbartonxM FsG3B(n{#bB/݃=SS-BdM1Vv\>0k>sG7[j`.堫][ߎ}* pG??]ܷX]&=yTinyURL-0.1.0/.git/objects/39/0000755000175000017500000000000011146337003016017 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/objects/39/e8671ea0fd40f36cb633a7b81bb94f5d765c730000444000175000017500000000020611146337003023236 0ustar rwbartonrwbartonxK ]sw>Jc;HBf33n[; ֱC j6P`5ȑ2SԂFw z-pjӅֱMiAi^iT R}O]JVxs{Z;=`TinyURL-0.1.0/.git/objects/dc/0000755000175000017500000000000011146340123016147 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/objects/dc/21d20ff8e8f894787f8399a05a6bc0ffee333f0000444000175000017500000000027711146340123023422 0ustar rwbartonrwbartonx+)JMU00e040031QK,L/JeXibi{[gei, U0+Dk2͘,RK.ۑވqrs*d3D}fwn) yNBdU%'&%0/%|*3į|ZJTinyURL-0.1.0/.git/objects/43/0000755000175000017500000000000011146337003016012 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/objects/43/cda75eb86d5f0fcc3f32019356cbce1124f6500000444000175000017500000000006711146337003023275 0ustar rwbartonrwbartonx+)JMU0`040031Q̫ (fX)֥e-54]ÚiPTinyURL-0.1.0/.git/objects/a2/0000755000175000017500000000000011144702740016070 5ustar rwbartonrwbartonTinyURL-0.1.0/.git/objects/a2/61f291755404ef0ada9e519a6bf80c8172d3050000444000175000017500000000002611144702740023056 0ustar rwbartonrwbartonxKOR0gH,.!TinyURL-0.1.0/.git/branches/0000755000175000017500000000000011144702722015722 5ustar rwbartonrwbartonTinyURL-0.1.0/TinyURL.cabal0000644000175000017500000000073111146337663015601 0ustar rwbartonrwbartonName: TinyURL Version: 0.1.0 Cabal-Version: >= 1.2 Build-Type: Simple License: BSD3 License-File: LICENSE Author: Reid Barton Maintainer: Reid Barton Category: Web Synopsis: Use TinyURL to compress URLs Description: This package exports a single function that uses the TinyURL API to compress a given URL. Library Build-Depends: base, HTTP, network Exposed-Modules: Network.TinyURL TinyURL-0.1.0/LICENSE0000644000175000017500000000265611144702157014314 0ustar rwbartonrwbartonCopyright (c) 2009 Reid Barton All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. Neither the name of the author nor the names of his contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. TinyURL-0.1.0/.gitignore0000644000175000017500000000000711144702710015256 0ustar rwbartonrwbartondist/* TinyURL-0.1.0/Network/0000755000175000017500000000000011146336103014723 5ustar rwbartonrwbartonTinyURL-0.1.0/Network/TinyURL.hs0000644000175000017500000000154211146336103016567 0ustar rwbartonrwbartonmodule Network.TinyURL (tinyURL) where import Network.HTTP import Network.URI -- | Use TinyURL to compress a URL. In the event of a failure, return -- the original URL. tinyURL :: String -> IO String tinyURL url = do result <- simpleHTTP request `catch` (const . return $ Left undefined) case result of Left _ -> return url Right response -> return $ rspBody response where request = Request { rqURI = uri , rqMethod = GET , rqHeaders = [] , rqBody = "" } uri = URI { uriScheme = "http:" , uriAuthority = Just $ URIAuth { uriUserInfo = "", uriRegName = "tinyurl.com", uriPort = "" } , uriPath = "/api-create.php" , uriQuery = "?url=" ++ escapeURIString isUnreserved url , uriFragment = "" } TinyURL-0.1.0/Setup.lhs0000644000175000017500000000011411144702140015072 0ustar rwbartonrwbarton#!/usr/bin/env runhaskell > import Distribution.Simple > main = defaultMain